home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 176-200 / disk_190 / nethack / twee.zoo / mhitu.c < prev    next >
C/C++ Source or Header  |  1988-07-25  |  15KB  |  642 lines
  1. /*    SCCS Id: @(#)mhitu.c    2.3     88/01/21
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3.  
  4. #include    "hack.h"
  5. extern struct monst *makemon();
  6. extern struct obj *carrying();
  7. #ifdef KAA
  8. extern char pl_character[];
  9. #endif
  10.  
  11. char *breathe[]= {    "fragments",
  12.             "fire",
  13.             "sleep gas",
  14.             "frost",
  15.             "death",
  16.             "lightening",
  17.             "poison gas",
  18.             "acid" };
  19.  
  20. /*
  21.  * mhitu: monster hits you
  22.  *      returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
  23.  */
  24. mhitu(mtmp)
  25. register struct monst *mtmp;
  26. {
  27.     register struct permonst *mdat = mtmp->data;
  28.     register int tmp, ctmp;
  29.  
  30.     nomul(0);
  31.  
  32.     /* If swallowed, can only be affected by hissers and by u.ustuck */
  33.     if(u.uswallow) {
  34.         if(mtmp != u.ustuck) {
  35.             if(mdat->mlet == 'c' && !rn2(13)) {
  36.                 pline("Outside, you hear %s's hissing!",
  37.                     monnam(mtmp));
  38.                 pline("%s gets turned to stone!",
  39.                     Monnam(u.ustuck));
  40.                 pline("And the same fate befalls you.");
  41.                 done_in_by(mtmp);
  42.                 /* "notreached": not return(1); */
  43.             }
  44.             return(0);
  45.         }
  46.         switch(mdat->mlet) {    /* now mtmp == u.ustuck */
  47.         case ',':
  48.             youswld(mtmp, (u.uac > 0) ? u.uac+4 : 4,
  49.                 5, Monnam(mtmp));
  50.             break;
  51.         case '\'':
  52.             youswld(mtmp,rnd(6),7,Monnam(mtmp));
  53.             break;
  54.         case 'P':
  55.             youswld(mtmp,d(2,4),12,Monnam(mtmp));
  56.             break;
  57.         default:
  58.             /* This is not impossible! */
  59. #ifdef DGKMOD
  60.             /* If the swallowing monster changes into a monster
  61.              * that is not capable of swallowing you, you get
  62.              * regurgitated - dgk
  63.              */
  64.             pline("You get regurgitated!");
  65.             u.ux = mtmp->mx;
  66.             u.uy = mtmp->my;
  67.             u.uswallow = 0;
  68.             u.ustuck = 0;
  69.             mnexto(mtmp);
  70.             setsee();
  71.             docrt();
  72.             break;
  73. #else
  74.             pline("The mysterious monster totally digests you.");
  75.             u.uhp = 0;
  76. #endif /* DGKMOD /**/
  77.         }
  78.         if(u.uhp < 1) done_in_by(mtmp);
  79.         return(0);
  80.     }
  81.  
  82.     if(mdat->mlet == 'c' && Stoned)
  83.         return(0);
  84.  
  85.     /* make eels visible the moment they hit/miss us */
  86.     if(mdat->mlet == ';' && mtmp->minvis && cansee(mtmp->mx,mtmp->my)){
  87.         mtmp->minvis = 0;
  88.         pmon(mtmp);
  89.     }
  90.     if(!index("1&DuxynNF",mdat->mlet))
  91.         tmp = hitu(mtmp,d(mdat->damn,mdat->damd));
  92.     else
  93.         tmp = 0;
  94.     if(index(UNDEAD, mdat->mlet) && midnight())
  95.         tmp += hitu(mtmp,d(mdat->damn,mdat->damd));
  96.  
  97.     ctmp = tmp && !mtmp->mcan &&
  98.       (!uarm || objects[uarm->otyp].a_can < rnz(3));
  99.     switch(mdat->mlet) {
  100.     case '1':
  101.         if(wiz_hit(mtmp)) return(1);    /* he disappeared */
  102.         break;
  103.     case '&':
  104.         if(mtmp->isdjinni) {
  105.             (void) hitu(mtmp,d(mdat->damn, mdat->damd));
  106.             (void) hitu(mtmp,d(mdat->damn, mdat->damd));
  107.         } else demon_hit(mtmp);
  108.         break;
  109.     case ',':
  110.         if(tmp) justswld(mtmp,Monnam(mtmp));
  111.         break;
  112.     case '\'':
  113.         if (tmp) justswld(mtmp,Monnam(mtmp));
  114.         break;
  115.     case ';':
  116.         if(ctmp) {
  117.             if (!rn2(6)) {
  118.                 if (!Blind)
  119.                     pline("%s shocks you!", Monnam(mtmp));
  120.                 else    pline("It shocks you!");
  121.                 if (Shock_resistance)
  122.                     pline("You aren't affected!");
  123.                 else    losehp_m(d(4,6),mtmp);
  124.             } else
  125.             if(!u.ustuck && !rn2(10)) {
  126.                 pline("%s swings itself around you!",
  127.                     Monnam(mtmp));
  128.                 u.ustuck = mtmp;
  129.             } else if(u.ustuck == mtmp &&
  130.                 RM_TYP(levl[mtmp->mx][mtmp->my]) == POOL) {
  131.                 pline("%s drowns you ...", Monnam(mtmp));
  132.                 done("drowned");
  133.             }
  134.         }
  135.         break;
  136.     case 'A':
  137.         if(ctmp && rn2(2)) {
  138.             if(Poison_resistance)
  139.             pline("The sting doesn't seem to affect you.");
  140.             else {
  141.             pline("You feel weaker!");
  142.             losestr(1);
  143.             }
  144.         }
  145.         break;
  146.     case 'C':
  147.         (void) hitu(mtmp,rnd(6));
  148.         break;
  149.     case 'c':
  150.         if(!rn2(5)) {
  151.             if (mtmp->mcan)
  152.             pline("You hear a cough from %s!", monnam(mtmp));
  153.             else {
  154.             pline("You hear %s's hissing!", monnam(mtmp));
  155.             if(!rn2(20) || (flags.moonphase == NEW_MOON
  156.                 && !carrying(DEAD_LIZARD) && u.usym != 'c')) {
  157.                 Stoned = 5;
  158.                 /* pline("You get turned to stone!"); */
  159.                 /* done_in_by(mtmp); */
  160.             }
  161.             }
  162.         }
  163.         break;
  164.     case 'D':
  165.         if(rn2(6) || mtmp->mcan) {
  166.             (void) hitu(mtmp,d(3,10));
  167.             (void) hitu(mtmp,rnd(8));
  168.             (void) hitu(mtmp,rnd(8));
  169.             break;
  170.         }
  171.         kludge("%s breathes %s!",Monnam(mtmp), breathe[mtmp->dragon]);
  172.         buzz((int) -10 - (mtmp->dragon),
  173.             mtmp->mx,mtmp->my,u.ux-mtmp->mx,u.uy-mtmp->my);
  174.         break;
  175.     case 'd':
  176.         (void) hitu(mtmp,d(2, (flags.moonphase == FULL_MOON) ? 3 : 4));
  177.         break;
  178.     case 'e':
  179.         (void) hitu(mtmp,d(3,6));
  180.         break;
  181.     case 'F':
  182.         if(mtmp->mcan) break;
  183.         kludge("%s explodes!", Monnam(mtmp));
  184.         if(Cold_resistance) pline("You don't seem affected by it.");
  185.         else {
  186.             xchar dn;
  187.             if(17-(u.ulevel/2) > rnd(20)) {
  188.                 pline("You get blasted!");
  189.                 dn = 6;
  190.             } else {
  191.                 pline("You duck the blast...");
  192.                 dn = 3;
  193.             }
  194.             losehp_m(d(dn,6), mtmp);
  195.         }
  196.         mondead(mtmp);
  197.         return(1);
  198.     case 'G':
  199.         if(!mtmp->isgremlin || mtmp->mcan) break;
  200.         if(!rn2(10)) {
  201.             if (Blind)
  202.                 pline("You hear laughter.");
  203.             else
  204.                 pline("%s chuckles.", Monnam(mtmp));
  205.             attrcurse();
  206.         }
  207.         break;
  208.     case 'g':
  209.         if(ctmp && multi >= 0 && !rn2(3)) {
  210.         /* fix so we do not know what hit us when blind  KAA */
  211.             if (Blind)
  212.             pline("You are frozen by its juices!");
  213.             else
  214.             pline("You are frozen by %s's juices!",monnam(mtmp));
  215.             nomul(-rnd(10));
  216.         }
  217.         break;
  218.     case 'h':
  219.         if(ctmp && multi >= 0 && !rn2(5)) {
  220.             nomul(-rnd(10));
  221.             if (Blind)
  222.             pline("You are put to sleep by its bite!");
  223.             else
  224.             pline("You are put to sleep by %s's bite!",monnam(mtmp));
  225.         }
  226.         break;
  227.     case 'j':
  228.         tmp = hitu(mtmp,rnd(3));
  229.         tmp &= hitu(mtmp,rnd(3));
  230.         if(tmp){
  231.             (void) hitu(mtmp,rnd(4));
  232.             (void) hitu(mtmp,rnd(4));
  233.         }
  234.         break;
  235.     case 'k':
  236.         if((hitu(mtmp,rnd(4)) || !rn2(3)) && ctmp){
  237.             poisoned("bee's sting",mdat->mname);
  238.         }
  239.         break;
  240.     case 'L':
  241. #ifdef KAA
  242.         if (u.usym=='L') break;
  243. #endif
  244.         if(!mtmp->mcan && tmp) stealgold(mtmp);
  245.         break;
  246.     case 'N':
  247. #ifdef KAA
  248.         if (u.usym=='N') {
  249.             if (mtmp->minvent)
  250.     pline("%s brags about the goods some dungeon explorer provided.",
  251.     Monnam(mtmp));
  252.             else
  253.     pline("%s makes some remarks about how difficult theft is lately.",
  254.     Monnam(mtmp));
  255.             rloc(mtmp);
  256.         } else
  257. #endif
  258.         if(mtmp->mcan && !Blind) {
  259.         pline("%s tries to seduce you, but you seem not interested.",
  260.             Amonnam(mtmp, "plain"));
  261.             if(rn2(3)) rloc(mtmp);
  262.         } else if(steal(mtmp)) {
  263.             rloc(mtmp);
  264.             mtmp->mflee = 1;
  265.         }
  266.         break;
  267.     case 'n':
  268.         if(!uwep
  269. #ifdef KAA
  270.            && u.usym == '@'
  271. #endif
  272. #ifdef SHIRT
  273.            && !uarmu
  274. #endif
  275.            && !uarm && !uarmh && !uarms && !uarmg) {
  276.             pline("%s hits! (I hope you don't mind)",
  277.             Monnam(mtmp));
  278.             u.uhp += rnd(7);
  279.             if(!rn2(7)) u.uhpmax++;
  280.             if(u.uhp > u.uhpmax) u.uhp = u.uhpmax;
  281.             flags.botl = 1;
  282.             if(!rn2(50)) rloc(mtmp);
  283.         } else {
  284. #ifdef KAA
  285.             if (pl_character[0] == 'H' && u.usym == '@') {
  286.                 if (!(moves % 5))
  287.                 pline("Doc, I can't help you unless you cooperate.");
  288.             } else {
  289. #endif
  290.                 (void) hitu(mtmp,d(2,6));
  291.                 (void) hitu(mtmp,d(2,6));
  292. #ifdef KAA
  293.             }
  294. #endif
  295.         }
  296.         break;
  297.     case 'o':
  298.         tmp = hitu(mtmp,rnd(6));
  299.         if(hitu(mtmp,rnd(6)) && tmp &&  /* hits with both paws */
  300.             !u.ustuck && rn2(2)) {
  301.             u.ustuck = mtmp;
  302.             kludge("%s has grabbed you!", Monnam(mtmp));
  303.             losehp_m(d(2,8), mtmp);
  304.         } else if(u.ustuck == mtmp) {
  305.             losehp_m(d(2,8), mtmp);
  306.             pline("You are being crushed.");
  307.         }
  308.         break;
  309.     case 'P':
  310.         if(ctmp && !rn2(4))
  311.             justswld(mtmp,Monnam(mtmp));
  312.         else
  313.             (void) hitu(mtmp,d(2,4));
  314.         break;
  315.     case 'Q':
  316. #ifdef KAA
  317.         if(ctmp) {
  318.             pline("Your position suddenly seems very uncertain!");
  319.             tele();
  320.         }
  321. #else
  322.         (void) hitu(mtmp,rnd(2));
  323.         (void) hitu(mtmp,rnd(2));
  324. #endif
  325.         break;
  326.     case 'R':
  327.         if(ctmp && uarmh && !uarmh->rustfree &&
  328.            (int) uarmh->spe >= -1) {
  329.             pline("Your helmet rusts!");
  330.             uarmh->spe--;
  331.         } else
  332.         if(ctmp && uarm && !uarm->rustfree &&   /* Mike Newton */
  333.          uarm->otyp < STUDDED_LEATHER_ARMOR &&
  334.          (int) uarm->spe >= -1) {
  335.             pline("Your armor rusts!");
  336.             uarm->spe--;
  337.         }
  338.         break;
  339.     case 'S':
  340.         if(ctmp && !rn2(8)) {
  341.             poisoned("snake's bite",mdat->mname);
  342.         }
  343.         break;
  344.     case 's':
  345.         if(ctmp && !rn2(8)) {
  346. #ifdef SPIDERS
  347.             poisoned("giant spider's bite",mdat->mname);
  348. #else
  349.             poisoned("scorpion's sting",mdat->mname);
  350. #endif
  351.         }
  352.         (void) hitu(mtmp,rnd(8));
  353.         (void) hitu(mtmp,rnd(8));
  354.         break;
  355.     case 'T':
  356.         (void) hitu(mtmp,rnd(6));
  357.         (void) hitu(mtmp,rnd(6));
  358.         break;
  359.     case 't':
  360.         if(!rn2(5)) rloc(mtmp);
  361.         break;
  362.     case 'u':
  363.         mtmp->mflee = 1;
  364.         break;
  365.     case 'U':
  366.         (void) hitu(mtmp,d(3,4));
  367.         (void) hitu(mtmp,d(3,4));
  368.         break;
  369.     case 'v':
  370.         if(ctmp && !u.ustuck) u.ustuck = mtmp;
  371.         break;
  372.     case 'V':
  373.         if(tmp)  losehp_m(4, mtmp);
  374.         if(ctmp) losexp();
  375.         break;
  376.     case 'W':
  377.         if(ctmp) losexp();
  378.         break;
  379. #ifndef NOWORM
  380.     case 'w':
  381.         if(tmp) wormhit(mtmp);
  382. #endif
  383.         break;
  384.     case 'X':
  385.         (void) hitu(mtmp,rnd(5));
  386.         (void) hitu(mtmp,rnd(5));
  387.         (void) hitu(mtmp,rnd(5));
  388.         break;
  389.     case 'x':
  390.         { register long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
  391. #ifdef KAA
  392.           if (mtmp->mcan)
  393.             pline("%s nuzzles against your %s leg!",
  394.               Monnam(mtmp), (side==RIGHT_SIDE)?"right":"left");
  395.           else {
  396. #endif
  397.             pline("%s pricks your %s leg!",
  398.               Monnam(mtmp), (side==RIGHT_SIDE)?"right":"left");
  399.             set_wounded_legs(side, rnd(50));
  400.             losehp_m(2, mtmp);
  401. #ifdef KAA
  402.           }
  403. #endif
  404.           break;
  405.         }
  406.     case 'y':
  407.         if(mtmp->mcan) break;
  408.         mondead(mtmp);
  409.         if(!Blind && (u.usym != 'y')) {
  410.             pline("You are blinded by a blast of light!");
  411.             Blinded = d(4,12);
  412.             seeoff(0);
  413.         }
  414.         return(1);
  415.     case 'Y':
  416.         (void) hitu(mtmp,rnd(6));
  417.         break;
  418. #ifdef RPH
  419.     case '8':
  420.         if (canseemon(mtmp) && !mtmp->mcan) {
  421.  
  422.             pline ("You look upon %s.", monnam(mtmp));
  423.             pline ("You turn to stone.");
  424.             done_in_by(mtmp);
  425.         }
  426.         (void) hitu(mtmp,d(2,6));
  427.         (void) hitu(mtmp,d(2,6));
  428.         break;
  429. #endif
  430. #ifdef STOOGES
  431.     case '@':
  432.         if(!mtmp->isstooge) break;
  433.         if(!tmp) break;
  434.         if(!rn2(6) && !Blind) {
  435.             pline ("%s poked you in the eye.", Monnam(mtmp));
  436.             pline ("You are blinded!");
  437.             Blinded += rnd(10);
  438.             seeoff(0);
  439.         }
  440.         break;
  441. #endif
  442.     }
  443.     if(u.uhp < 1) done_in_by(mtmp);
  444.     return(0);
  445. }
  446.  
  447. hitu(mtmp,dam)
  448. register struct monst *mtmp;
  449. register dam;
  450. {
  451.     register tmp, res;
  452.  
  453.     nomul(0);
  454.     if (mtmp->mfroz || mtmp->mhp <= 0) return(0);
  455.     /* If you are a 'a' or 'E' the monster might not get a second hit */
  456.     if(u.uswallow) return(0);
  457.  
  458.     if(mtmp->mhide && mtmp->mundetected) {
  459.         mtmp->mundetected = 0;
  460.         if(!Blind) {
  461.             register struct obj *obj;
  462.             extern char *Xmonnam();
  463.             if(obj = o_at(mtmp->mx,mtmp->my))
  464.                 pline("%s was hidden under %s!",
  465.                     Xmonnam(mtmp), doname(obj));
  466.         }
  467.     }
  468.  
  469.     tmp = u.uac;
  470.     /* give people with Ac = -10 at least some vulnerability */
  471.     if(tmp < 0) {
  472.         dam += tmp;        /* decrease damage */
  473.         if(dam <= 0) dam = 1;
  474.         tmp = -rn2(-tmp);
  475.     }
  476.     tmp += mtmp->data->mlevel;
  477.     if(multi < 0) tmp += 4;
  478.     if((Invis && mtmp->data->mlet != 'I') || !mtmp->mcansee) tmp -= 2;
  479.     if(mtmp->mtrapped) tmp -= 2;
  480.     if(tmp <= rnd(20)) {
  481.         if(Blind) pline("It misses.");
  482.         else pline("%s misses.",Monnam(mtmp));
  483.         res = 0;
  484.     } else {
  485.         if(Blind) pline("It hits!");
  486.         else pline("%s hits!",Monnam(mtmp));
  487.         if (u.usym == 'a' && !rn2(4)) {
  488.             pline("%s is splashed by your acid!",Monnam(mtmp));
  489.             mtmp->mhp -= rnd(10);
  490.             if(mtmp->mhp <= 0) {
  491.                 pline("%s dies!",Monnam(mtmp));
  492.                 xkilled(mtmp,0);
  493.             }
  494.         }
  495.         losehp_m(dam, mtmp);
  496.         res = 1;
  497.     }
  498.     stop_occupation();
  499.     if(u.usym=='E' && mtmp->mcansee && rn2(2)) {
  500.         pline("%s is frozen by your gaze!",Monnam(mtmp));
  501.         mtmp->mfroz = 1;
  502.     }
  503.     return(res);
  504. }
  505.  
  506. #define Athome    (Inhell && !mtmp->cham)
  507.  
  508. #ifdef HARD
  509. demon_talk(mtmp)                /* returns 1 if we pay him off. */
  510. register struct monst *mtmp;
  511. {
  512.     char    *xmonnam(), *Xmonnam();
  513.     int    demand, offer;
  514.  
  515.     if(uwep && !strcmp(ONAME(uwep), "Excalibur")) {
  516.  
  517.         pline("%s looks very angry.", Xmonnam(mtmp));
  518.         mtmp->mpeaceful = mtmp->mtame = 0;
  519.         return(0);
  520.     }
  521.     if(!strcmp(mtmp->data->mname, "demon")) {  /* not for regular '&'s */
  522.  
  523.         pline("%s mutters something about awful working conditions.",
  524.           Xmonnam(mtmp));
  525.         return(0);
  526.     }
  527.  
  528.     /* Slight advantage given. */
  529.     if(!strcmp(mtmp->data->mname, "demon prince") && mtmp->minvis) {
  530.  
  531.         if (!Blind) pline("%s appears before you.", Xmonnam(mtmp));
  532.         mtmp->minvis = 0;
  533.         pmon(mtmp);
  534.     }
  535.     if(u.usym == '&') {     /* Won't blackmail their own. */
  536.  
  537.         pline("%s says, 'Good hunting %s.' and vanishes",
  538.           Xmonnam(mtmp), flags.female ? "Sister" : "Brother");
  539.         rloc(mtmp);
  540.         return(1);
  541.     }
  542.     demand = (u.ugold * (rnd(80) + 20 * Athome)) / 100;
  543.     if(!demand)  {          /* you have no gold */
  544.         mtmp->mpeaceful = 0;
  545.         return(0);
  546.     } else {
  547.         char buf[80];
  548.  
  549.         pline("%s demands %d Zorkmids for safe passage.",
  550.           Xmonnam(mtmp), demand);
  551.         pline("how many will you offer him?");
  552.         getlin(buf);
  553.         sscanf(buf, "%d", &offer);
  554.  
  555.         if(offer >= u.ugold) {
  556.         pline("You give %s all your gold.", xmonnam(mtmp, 0));
  557.         offer = u.ugold;
  558.         } else pline("You give %s %d Zorkmids.", xmonnam(mtmp, 0), offer);
  559.         u.ugold -= offer;
  560.  
  561.         if(offer >= demand) {
  562.         pline("%s vanishes laughing about cowardly mortals.",
  563.               Xmonnam(mtmp));
  564.         } else {
  565.         if(rnd(40) > (demand - offer)) {
  566.             pline("%s scowls at you menacingly, then vanishes.",
  567.               Xmonnam(mtmp));
  568.         } else {
  569.             pline("%s gets angry...", Xmonnam(mtmp));
  570.             mtmp->mpeaceful = 0;
  571.             return(0);
  572.         }
  573.         }
  574.     }
  575.     mondead(mtmp);
  576.     return(1);
  577. }
  578. #endif
  579.  
  580. demon_hit(mtmp)
  581. register struct monst *mtmp;
  582. {
  583.     register struct obj    *otmp;
  584.     int    onum, nobj = 0,
  585.         ml = mtmp->data->mlevel;
  586.  
  587.     if(!mtmp->cham && !mtmp->mcan && !rn2(13)) {
  588.         (void) makemon(PM_DEMON,u.ux,u.uy);
  589.     } else {
  590.         switch((!mtmp->mcan) ? rn2(ml - 5 - !Athome) : 0)   {
  591. #ifdef HARD
  592.         case 12:
  593.         case 11:
  594.         case 10:
  595.         case 9:         /* the wiz */
  596.             (void) hitu(mtmp, 1);
  597.             pline("Oh no, he's using the touch of death!");
  598.             if (rn2(ml) > 12)  {
  599.  
  600.                 if(Confusion)
  601.                 pline("You have an out of body experience.");
  602.                 else  {
  603.                 killer = "touch of death";
  604.                 done("died");
  605.                 }
  606.             } else pline("Lucky for you, it didn't work!");
  607.             break;
  608.         case 8:         /* demon princes */
  609.             (void) hitu(mtmp, 1);
  610.             if(!destroy_arm()) pline("Your skin itches.");
  611.             break;
  612.         case 7:
  613.             (void) hitu(mtmp, 1);
  614.             for (otmp = invent; otmp; otmp = otmp->nobj)  nobj++;
  615.             onum = rn2(nobj);
  616.             for(otmp = invent; onum != 0; onum--) otmp = otmp->nobj;
  617.             otmp->cursed++;
  618.             break;
  619.         case 6:         /* demon lords */
  620.             (void) hitu(mtmp, 1);
  621.             pline("You suddenly feel weaker!");
  622.             losestr(rnd(ml - 6));
  623.             break;
  624.         case 5:
  625.             (void) hitu(mtmp, 1);
  626.             if (Confusion)  pline("Hey, that tickles!");
  627.             else        pline("Huh, What? Where am I?");
  628.             HConfusion += rn1(7, 16);
  629.             break;
  630. #endif /* HARD /**/
  631.         default:        /* demons and chamelons as demons */
  632.             (void) hitu(mtmp,d(2,5 + Athome));
  633.             (void) hitu(mtmp,d(2,5 + Athome));
  634.             (void) hitu(mtmp,rnd(2 + Athome));
  635.             (void) hitu(mtmp,rnd(2 + Athome));
  636.             (void) hitu(mtmp,rn1(4,1 + Athome));
  637.             break;
  638.         }
  639.     }
  640.     return(0);
  641. }
  642.